﻿Imports NearAop

<AddProxyInterface(GetType(Proxy4), GetType(IMyInterface1), GetType(IMyInterface2))>
Public Class T07_接口代理

End Class

Interface IMyInterface1
    Sub ShowMsg1()

End Interface

Interface IMyInterface2
    Sub ShowMsg2()

End Interface


Class Proxy4
    Implements IMyInterface1, IMyInterface2

    Public Sub ShowMsg1() Implements IMyInterface1.ShowMsg1
        Console.WriteLine("ShowMsg1")
    End Sub

    Public Sub ShowMsg2() Implements IMyInterface2.ShowMsg2
        Console.WriteLine("ShowMsg2")
    End Sub

End Class